home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / FAN15P.M3 < prev    next >
Text File  |  1996-04-01  |  4KB  |  135 lines
  1. name Fanuc 15M with Tool Preselect
  2.  
  3. % 00
  4. / 00
  5. O >4
  6. N >4
  7. G >2
  8. g >2 G
  9. X ->3.>4
  10. Y ->3.>4
  11. Z ->3.>4
  12. I ->3.>4
  13. J ->3.>4
  14. K ->3.>4
  15. Q ->3.>4
  16. R ->3.>4
  17. P >40
  18. F >3.1
  19. H >2
  20. D >2
  21. T >2
  22. S >5
  23. M >2
  24.  
  25. ModalLetters X Y Z F R S M Q          # List of letters that are modal    
  26.  
  27. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  28.  
  29. Sequence#s N 0 5 5                    # Char, freq, incr & start          
  30.  
  31. HCode X                               # X or X U  'Horizontal char.       
  32. VCode Y                               # Y or Y V  'Vertical char.         
  33. Dcode Z                               # Depth char.                       
  34. FeedCode F                            # Feed rate char.                   
  35.  
  36. Comment ( )                           # Begin End comment char.           
  37.  
  38. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  39. Coolant 8 9 7                         # On, Off & Mist m codes            
  40. DComp 41 42 40                        # Left, Right & Cancel m codes      
  41. LComp 43 49                           # On & Off codes                    
  42.  
  43. Feed G1                             # Linear move                       
  44. Rapid G0                            # Rapid positioning word            
  45. Cw G2                               # Circular move clockwise           
  46. Ccw G3                              # Circular move counter clockwise   
  47.  
  48. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  49.  
  50. CtrCode I J                           # I J or R or I J K L               
  51. Helical? Y
  52.  
  53. Spaces? Y                             # Y or N  'Spaces between words     
  54.  
  55. Incremental? N                        # Y or N  'Inc or abs output        
  56. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  57. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  58.  
  59. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  60.  
  61. Drill                                 # Drilling canned/manual cycle      
  62. G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  63. end cancel
  64.  
  65. Peck                                  # Pecking canned/manual cycle       
  66. G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  67. end cancel
  68.  
  69. Tap                                   # Tapping canned/manual cycle       
  70. G84 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  71. end cancel
  72.  
  73. LTap                                  # Left handed tapping cycle         
  74. G74 X[H] Y[V] Z[D] R[Vclear] F[Frate]
  75. end cancel
  76.  
  77. Ream                                  # Reaming canned/manual cycle       
  78. G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  79. end cancel
  80.  
  81. Bore                                  # Boring canned/manual cycle        
  82. G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  83. end cancel
  84.  
  85. Back                                  # Back boring canned/manual cycle   
  86. G87 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  87. end cancel
  88.  
  89. Cancel                                # Cancel a canned/manual cycle      
  90. G80
  91. end
  92.  
  93. StartCode                             # Start of the program              
  94. %0
  95. O[Program#]
  96. End
  97.  
  98. 1stToolChange                         # First tool change                 
  99. G0 G17 G40 G94
  100. M6
  101. G[Work] G90 X[H] Y[V]
  102. S[Speed] M[Direct]
  103. G43 Z[D] H[Lcomp]
  104. T[NextTool] M[Cool]
  105. End
  106.  
  107. Infeed                                # Enable cutter comp                
  108. G[Side] X[H] Y[V] D[DComp] F[FRate]
  109. end
  110.  
  111. Outfeed                               # Disable cutter comp               
  112. G1 G40 X[H] Y[V]
  113. end
  114.  
  115. ToolChange                            # Secondary tool changes            
  116. M9
  117. G0 g91 G28 Z0 M19
  118. M6
  119. G[Work] G90 X[H] Y[V]
  120. S[Speed] M[Direct]
  121. G43 Z[D] H[Lcomp]
  122. T[NextTool] M[Cool]
  123. End
  124.  
  125. EndCode                               # End of the program                
  126. G0 g91 G28 Z0
  127. G49 M9
  128. g91 G28 M19
  129. T[Tool1]
  130. M30
  131. %0
  132. End
  133.  
  134.  
  135.